home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs03.d81
/
cad.sfx
/
menu
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1990-02-12
|
1KB
|
34 lines
1 A=USR(0),0,1,4
2 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(17):A=USR(1):PRINT"[147]"
3 OPEN15,D0,15,"I0"
4 CLOSE15
5 PRINTCHR$(14)"[147] A --> ARCS"
6 PRINTCHR$(14)" B --> BOXES"
7 PRINT" [194] --> BOXES (SOLID)
8 [153]" C --> CIRCLES (DIAMETER)
9 PRINT" [195] --> CIRCLES (RADIUS)
10 [153]" D --> DISCS (DRAW)
11 PRINT" [196] --> DISCS (ERASE)
12 [153]" E --> ERASE (LINE)
13 PRINT" [197] --> ERASE (BOX)
14 [153]" ASC --> FREEHAND DRAW
15 PRINT" L --> LINES
16 [153]" (null) --> (null)(null)RIGHT$(null)
17 PRINT" ! --> SWITCH SCREENS
18 [153]" # --> INVERT SCREEN 1
19 PRINT" = --> COPY SCREEN 1 TO SCREEN 2
20 [153]" & --> ADD SCREEN 2 TO SCREEN 1
21 PRINT" [195][204][210] --> CLEAR SCREEN 1
22 [153]" STR$VAL(null) --> DELETE LAST OPERATION
23 PRINT" M --> MORE DRAWING ROUTINES
24 [153]" (null) --> EVEN MORE DRAWING ROUTINES
25 PRINT" [195]= M --> SPECIAL FUNCTIONS
26 [161]A$:[139]A$[178]""[167]26
27 [139]A$[178]"!"[167][158]36867:[153]"--(null)CREENS SWITCHED--":[137]26
28 [139]A$[178]"="[167][158]36882:[153]"--(null)CREEN COPIED--":[137]26
29 [139]A$[178]"LOAD"[167][158]36888:[153]"--(null)CREEN CLEARED--":[137]26
30 [139]A$[178]"#"[167][158]36876:[153]"--(null)CREEN INVERTED--":[137]26
31 [139]A$[178]"&"[167][158]36879:[153]"--(null)CREENS ADDED--":[137]26
32 [153]"LOAD":A[178][183](0),1,7,14:A[178][183](1):A[178][183](16)
33 A[178][183](34),16,Y,6:A[178][183](34),X,231,7:[147]"CMND",D0